home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1990 January & February / rerun-1990-01-02.d64 / menu 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  81 lines
  1. 10 rem new rerun c64 automenu
  2. 20 rem lou wallace
  3. 40 poke53280,0:poke53281,0:printchr$(142)
  4. 50 dr=peek(186):v=54273
  5. 60 ch$="abcdefghijklmnopqrstuvwxyz"
  6. 70 dr$=right$(str$(dr),len(str$(dr))-1)
  7. 80 dim n$(255),d$(255):cx=54272:print "[147]"
  8. 90 read f
  9. 100 for i=1 to f:read n$(i),d$(i)
  10. 110 if len(n$(i))>13 then n$(i)=left$(n$(i),13)+"*"
  11. 120 next
  12. 130 gosub 400
  13. 140 rem - print first column of names -
  14. 150 d$=""
  15. 160 for i=1 to f/2
  16. 170 print d$;
  17. 180 print""mid$(ch$,i,1)" "n$(i)
  18. 190 gosub 590:d$=d$+""
  19. 200 next
  20. 210 rem -- then 2nd column of names ---
  21. 220 d$=""
  22. 230 for i=(f/2+1) to f+.5
  23. 240 print d$;
  24. 250 printspc(19)""mid$(ch$,i,1)" "n$(i)
  25. 260 gosub 590:d$=d$+""
  26. 270 next
  27. 271 print"[209][165]note: fast-40 will not work on a c- [167][209]"
  28. 272 print"[145][209][165]      64. it is designed to work on [167][209]"
  29. 273 print"[145][145][209][165]      a c-128 in 64 mode.           [167][209]"
  30. 274 print"[209][165]      also, 2 ascii (text) files are[167][209]"
  31. 275 print"[145][209][165]      included on this disk. load   [167][209]"
  32. 276 print"[145][145][209][165]      these seq files into your word[167][209]"
  33. 277 print"[145][209][165]      processor. the filenames are: [167][209]"
  34. 280 getm$:ifm$=""then 280
  35. 290 ifm$<"a"orm$>chr$(64+f)then280
  36. 300 p=asc(m$)-64:print"[147]"
  37. 310 if d$(p)<>"run" then 340
  38. 320 iflen(n$(p))>12thenn$(p)=left$(n$(p),12)+"*"
  39. 330 print"load"chr$(34)n$(p)chr$(34)","dr$"[145][145][145]":goto360
  40. 340 iflen(n$(p))>15thenn$(p)=left$(n$(p),16)+"*"
  41. 350 print"load"chr$(34)n$(p)chr$(34)","dr$",1[145][145][145]"
  42. 360 a$=d$(p)
  43. 370 a$=a$+chr$(13)
  44. 380 poke631,13:forb=1tolen(a$):poke631+b,asc(mid$(a$,b,1)):next:poke198,10
  45. 390 new
  46. 400 poke 53280,0:poke 53281,0
  47. 410 ov=peek(53265)
  48. 420 poke 53265,peek(53265)and 247
  49. 430 poke 53265,(peek(53265)and248)+7
  50. 440 pr$="[209][165]                                    [167][209]"
  51. 450 tp$="[209][165][213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201][167][209]"
  52. 460 md$="[209][165][194]                                  [194][167][209]"
  53. 470 bt$="[209][165][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][167][209]"
  54. 480 hd$="january/february 1990 rerun
  55. 490 [153]"load";
  56. 500 [153] tp$;:[141] 590
  57. 510 [129] i[178]1 [164] 2:[153] md$;:[141] 590:[130]
  58. 520 [153]"on";hd$;:[141] 590
  59. 530 [153]:[153]"on";
  60. 540 [129] i[178]1 [164] 1:[153] md$;:[141] 590:[130]
  61. 550 [153] bt$;:[141] 590
  62. 560 [129] i[178]1 [164] 19:[153] pr$;:[141] 590:[130]
  63. 570 [151] 53265,27
  64. 580 [142]
  65. 590 [143] sound routine here
  66. 600 [151] v[170]23,15:[151] v[170]4,9:[151] v[170]5,0:[151] v,1:[151] v[170]3,32:[151] v[170]3,33
  67. 610 [142]
  68. 1000 [143] file list
  69. 1010 [143] first entry is the number of programs on this disk
  70. 1020 [143] followed by each filename
  71. 1030 [143] second data item is run or sysxxxxx
  72. 1040 [143] run if file is basic and sys xxxxx if ml
  73. 1050 [131] 7
  74. 1060 [131] money manager,run
  75. 1070 [131] foosball 64,run
  76. 1080 [131] duo,run
  77. 1085 [131] superfonts,run
  78. 1086 [131] fast-40,run
  79. 1090 [131] traffic jam,run
  80. 1100 [131] new cksum,run
  81.